HW 4 Problem 2

Column {data-width=650}

Pie Chart of Top Ten First Product

piefilter1 <- instacart %>%
    filter(add_to_cart_order == 1) %>%
    count(product_name) %>%
    mutate(n = factor(n)) %>%
    arrange(desc(n)) %>%
    head (10)

piefilter1 %>%
      plot_ly(labels = ~product_name, values = ~n, 
            type = 'pie')

Column

Bar Chart of Order Days

days_of_week <- instacart %>%
  select(order_id, order_dow) %>%
  arrange(desc(order_dow)) %>%
  mutate(order_dow = case_when(
    order_dow == 0 ~ "Saturday",
    order_dow == 1 ~ "Sunday",
    order_dow == 2 ~ "Monday",
    order_dow == 3 ~ "Tuesday",
    order_dow == 4 ~ "Wednesday",
    order_dow == 5 ~ "Thursday",
    order_dow == 6 ~ "Friday"
  )) %>%
  count(order_dow)

days_of_week %>%
  plot_ly(x = ~order_dow, y = ~n, color = ~order_dow, 
          type = "bar")

Scatter of Time of Day Order

tod_order <-instacart %>%
  select(order_id, order_hour_of_day, order_dow) %>%
  mutate(order_dow = case_when(
    order_dow == 0 ~ "Saturday",
    order_dow == 1 ~ "Sunday",
    order_dow == 2 ~ "Monday",
    order_dow == 3 ~ "Tuesday",
    order_dow == 4 ~ "Wednesday",
    order_dow == 5 ~ "Thursday",
    order_dow == 6 ~ "Friday" )) 

tod_order %>%
    plot_ly(x = ~order_dow, y = ~order_hour_of_day,
          type = "scatter", mode = "marker", alpha = 0.5)